/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / resources / wimpprocs

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3d f4 20 20 20 | 3e 20 24 2e 52 65 73 6f |...=.   |> $.Reso|
|00000010| 75 72 63 65 73 2e 57 69 | 6d 70 50 72 6f 63 73 20 |urces.Wi|mpProcs |
|00000020| 20 20 20 3a 20 4c 69 62 | 72 61 72 79 20 57 49 4d |   : Lib|rary WIM|
|00000030| 50 20 70 72 6f 63 65 64 | 75 72 65 73 2e 0d 00 14 |P proced|ures....|
|00000040| 04 0d 00 1e 0c f4 20 a9 | 20 52 2e 41 2e 0d 00 28 |...... .| R.A...(|
|00000050| 04 0d 00 32 0a dd f2 76 | 61 72 73 0d 00 3c 31 69 |...2...v|ars..<1i|
|00000060| 63 6f 6e 5f 62 67 63 6f | 6c 3d 32 3a 20 69 63 6f |con_bgco|l=2: ico|
|00000070| 6e 5f 66 67 63 6f 6c 3d | 37 3a 20 73 63 72 6f 6c |n_fgcol=|7: scrol|
|00000080| 6c 62 61 72 5f 62 67 63 | 6f 6c 3d 32 0d 00 46 34 |lbar_bgc|ol=2..F4|
|00000090| 64 65 73 6b 5f 62 67 63 | 6f 6c 3d 31 35 3a 20 66 |desk_bgc|ol=15: f|
|000000a0| 6f 63 75 73 5f 62 67 63 | 6f 6c 3d 31 31 3a 20 6d |ocus_bgc|ol=11: m|
|000000b0| 65 6e 75 74 69 74 6c 65 | 5f 62 67 63 6f 6c 3d 32 |enutitle|_bgcol=2|
|000000c0| 0d 00 50 39 6d 65 6e 75 | 74 69 74 6c 65 5f 66 67 |..P9menu|title_fg|
|000000d0| 63 6f 6c 3d 37 3a 20 6d | 65 6e 75 77 6f 72 6b 5f |col=7: m|enuwork_|
|000000e0| 62 67 63 6f 6c 3d 30 3a | 20 6d 65 6e 75 77 6f 72 |bgcol=0:| menuwor|
|000000f0| 6b 5f 66 67 63 6f 6c 3d | 37 0d 00 5a 26 64 69 61 |k_fgcol=|7..Z&dia|
|00000100| 6c 6f 67 75 65 5f 66 67 | 63 6f 6c 3d 37 3a 20 64 |logue_fg|col=7: d|
|00000110| 69 61 6c 6f 67 75 65 5f | 62 67 63 6f 6c 3d 30 0d |ialogue_|bgcol=0.|
|00000120| 00 64 0e 72 75 6e 66 69 | 6c 65 25 3d a3 0d 00 6e |.d.runfi|le%=...n|
|00000130| 0e 42 79 74 65 20 20 20 | 20 3d 36 0d 00 78 0e 46 |.Byte   | =6..x.F|
|00000140| 69 6c 65 20 20 20 20 3d | 38 0d 00 82 10 4d 75 6c |ile    =|8....Mul|
|00000150| 74 69 70 6c 65 3d 26 30 | 43 0d 00 8c 10 52 65 61 |tiple=&0|C....Rea|
|00000160| 64 50 61 6c 20 3d 26 32 | 46 0d 00 96 1d 46 6f 6e |dPal =&2|F....Fon|
|00000170| 74 20 20 20 20 3d 28 31 | 3c 3c 31 38 29 20 2b 20 |t    =(1|<<18) + |
|00000180| 28 32 3c 3c 36 29 0d 00 | a0 13 57 69 64 74 68 20 |(2<<6)..|..Width |
|00000190| 20 20 3d 46 6f 6e 74 2b | 31 0d 00 aa 1d 57 69 6d |  =Font+|1....Wim|
|000001a0| 70 20 20 20 20 3d 28 31 | 3c 3c 31 38 29 20 2b 20 |p    =(1|<<18) + |
|000001b0| 28 33 3c 3c 36 29 0d 00 | b4 13 49 6e 69 74 20 20 |(3<<6)..|..Init  |
|000001c0| 20 20 3d 57 69 6d 70 2b | 30 0d 00 be 13 43 72 65 |  =Wimp+|0....Cre|
|000001d0| 61 74 65 57 20 3d 57 69 | 6d 70 2b 31 0d 00 c8 13 |ateW =Wi|mp+1....|
|000001e0| 43 72 65 61 74 65 49 20 | 3d 57 69 6d 70 2b 32 0d |CreateI |=Wimp+2.|
|000001f0| 00 d2 13 44 65 6c 65 74 | 65 57 20 3d 57 69 6d 70 |...Delet|eW =Wimp|
|00000200| 2b 33 0d 00 dc 13 44 65 | 6c 65 74 65 49 20 3d 57 |+3....De|leteI =W|
|00000210| 69 6d 70 2b 34 0d 00 e6 | 13 4f 70 65 6e 57 20 20 |imp+4...|.OpenW  |
|00000220| 20 3d 57 69 6d 70 2b 35 | 0d 00 f0 13 43 6c 6f 73 | =Wimp+5|....Clos|
|00000230| 65 57 20 20 3d 57 69 6d | 70 2b 36 0d 00 fa 13 50 |eW  =Wim|p+6....P|
|00000240| 6f 6c 6c 20 20 20 20 3d | 57 69 6d 70 2b 37 0d 01 |oll    =|Wimp+7..|
|00000250| 04 13 52 65 64 72 61 77 | 57 20 3d 57 69 6d 70 2b |..Redraw|W =Wimp+|
|00000260| 38 0d 01 0e 13 55 70 64 | 61 74 65 57 20 3d 57 69 |8....Upd|ateW =Wi|
|00000270| 6d 70 2b 39 0d 01 18 14 | 47 65 74 52 20 20 20 20 |mp+9....|GetR    |
|00000280| 3d 57 69 6d 70 2b 31 30 | 0d 01 22 14 47 65 74 57 |=Wimp+10|..".GetW|
|00000290| 20 20 20 20 3d 57 69 6d | 70 2b 31 31 0d 01 2c 14 |    =Wim|p+11..,.|
|000002a0| 47 65 74 57 49 20 20 20 | 3d 57 69 6d 70 2b 31 32 |GetWI   |=Wimp+12|
|000002b0| 0d 01 36 14 53 65 74 49 | 20 20 20 20 3d 57 69 6d |..6.SetI|    =Wim|
|000002c0| 70 2b 31 33 0d 01 40 14 | 47 65 74 49 20 20 20 20 |p+13..@.|GetI    |
|000002d0| 3d 57 69 6d 70 2b 31 34 | 0d 01 4a 14 47 65 74 50 |=Wimp+14|..J.GetP|
|000002e0| 20 20 20 20 3d 57 69 6d | 70 2b 31 35 0d 01 54 14 |    =Wim|p+15..T.|
|000002f0| 44 72 61 67 20 20 20 20 | 3d 57 69 6d 70 2b 31 36 |Drag    |=Wimp+16|
|00000300| 0d 01 5e 14 53 63 72 65 | 65 6e 20 20 3d 57 69 6d |..^.Scre|en  =Wim|
|00000310| 70 2b 31 37 0d 01 68 14 | 53 65 74 43 61 72 65 74 |p+17..h.|SetCaret|
|00000320| 3d 57 69 6d 70 2b 31 38 | 0d 01 72 14 47 65 74 43 |=Wimp+18|..r.GetC|
|00000330| 61 72 65 74 3d 57 69 6d | 70 2b 31 39 0d 01 7c 14 |aret=Wim|p+19..|.|
|00000340| 43 72 65 61 74 65 4d 20 | 3d 57 69 6d 70 2b 32 30 |CreateM |=Wimp+20|
|00000350| 0d 01 86 14 44 65 63 6f | 64 65 4d 20 3d 57 69 6d |....Deco|deM =Wim|
|00000360| 70 2b 32 31 0d 01 90 14 | 57 68 69 63 68 49 20 20 |p+21....|WhichI  |
|00000370| 3d 57 69 6d 70 2b 32 32 | 0d 01 9a 15 53 65 74 45 |=Wimp+22|....SetE|
|00000380| 78 74 65 6e 74 3d 57 69 | 6d 70 2b 32 33 0d 01 a4 |xtent=Wi|mp+23...|
|00000390| 0b 6c 65 66 74 25 3d 30 | 0d 01 ae 0e 63 65 6e 74 |.left%=0|....cent|
|000003a0| 72 65 64 25 3d 31 0d 01 | b8 0c 72 69 67 68 74 25 |red%=1..|..right%|
|000003b0| 3d 32 0d 01 c2 11 66 6f | 72 6d 61 74 25 3d 6c 65 |=2....fo|rmat%=le|
|000003c0| 66 74 25 0d 01 cc 0e 62 | 65 68 69 6e 64 25 3d 2d |ft%....b|ehind%=-|
|000003d0| 31 0d 01 d6 0d 64 6f 74 | 74 65 64 25 3d a3 0d 01 |1....dot|ted%=...|
|000003e0| e0 05 e1 0d 01 ea 04 0d | 01 f4 1e dd f2 73 79 73 |........|.....sys|
|000003f0| 5f 63 6c 6f 73 65 77 69 | 6e 64 6f 77 28 68 61 6e |_closewi|ndow(han|
|00000400| 64 6c 65 25 29 0d 01 fe | 0e 21 62 3d 68 61 6e 64 |dle%)...|.!b=hand|
|00000410| 6c 65 25 0d 02 08 11 c8 | 99 20 43 6c 6f 73 65 57 |le%.....|. CloseW|
|00000420| 2c 30 2c 62 0d 02 12 05 | e1 0d 02 1c 04 0d 02 26 |,0,b....|.......&|
|00000430| 1f dd f2 73 79 73 5f 64 | 65 6c 65 74 65 77 69 6e |...sys_d|eletewin|
|00000440| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 02 30 0e |dow(hand|le%)..0.|
|00000450| 21 62 3d 68 61 6e 64 6c | 65 25 0d 02 3a 12 c8 99 |!b=handl|e%..:...|
|00000460| 20 44 65 6c 65 74 65 57 | 2c 30 2c 62 0d 02 44 05 | DeleteW|,0,b..D.|
|00000470| e1 0d 02 4e 04 0d 02 58 | 53 dd a4 73 79 73 5f 64 |...N...X|S..sys_d|
|00000480| 65 66 69 6e 65 77 69 6e | 64 6f 77 28 74 69 74 6c |efinewin|dow(titl|
|00000490| 65 24 2c 66 6c 61 67 73 | 25 2c 66 67 63 6f 6c 25 |e$,flags|%,fgcol%|
|000004a0| 2c 62 67 63 6f 6c 25 2c | 6d 61 78 58 25 2c 6d 61 |,bgcol%,|maxX%,ma|
|000004b0| 78 59 25 2c 77 61 4c 25 | 2c 77 61 42 25 2c 77 61 |xY%,waL%|,waB%,wa|
|000004c0| 52 25 2c 77 61 54 25 29 | 0d 02 62 2a 21 62 3d 77 |R%,waT%)|..b*!b=w|
|000004d0| 61 4c 25 3a 20 62 21 34 | 3d 77 61 42 25 3a 20 62 |aL%: b!4|=waB%: b|
|000004e0| 21 38 3d 77 61 52 25 3a | 20 62 21 31 32 3d 77 61 |!8=waR%:| b!12=wa|
|000004f0| 54 25 0d 02 6c 12 62 21 | 31 36 3d 30 3a 20 62 21 |T%..l.b!|16=0: b!|
|00000500| 32 30 3d 30 0d 02 76 0b | 62 21 32 34 3d 2d 31 0d |20=0..v.|b!24=-1.|
|00000510| 02 80 0f 62 21 32 38 3d | 66 6c 61 67 73 25 0d 02 |...b!28=|flags%..|
|00000520| 8a 24 62 3f 33 32 3d 69 | 63 6f 6e 5f 66 67 63 6f |.$b?32=i|con_fgco|
|00000530| 6c 3a 20 62 3f 33 33 3d | 69 63 6f 6e 5f 62 67 63 |l: b?33=|icon_bgc|
|00000540| 6f 6c 0d 02 94 1b 62 3f | 33 34 3d 66 67 63 6f 6c |ol....b?|34=fgcol|
|00000550| 25 3a 62 3f 33 35 3d 62 | 67 63 6f 6c 25 0d 02 9e |%:b?35=b|gcol%...|
|00000560| 29 62 3f 33 36 3d 73 63 | 72 6f 6c 6c 62 61 72 5f |)b?36=sc|rollbar_|
|00000570| 62 67 63 6f 6c 3a 20 62 | 3f 33 37 3d 69 63 6f 6e |bgcol: b|?37=icon|
|00000580| 5f 62 67 63 6f 6c 0d 02 | a8 14 62 3f 33 38 3d 66 |_bgcol..|..b?38=f|
|00000590| 6f 63 75 73 5f 62 67 63 | 6f 6c 0d 02 b2 0a 62 3f |ocus_bgc|ol....b?|
|000005a0| 33 39 3d 30 0d 02 bc 17 | 62 21 34 30 3d 30 3a 20 |39=0....|b!40=0: |
|000005b0| 62 21 34 34 3d 2d 6d 61 | 78 59 25 0d 02 c6 15 62 |b!44=-ma|xY%....b|
|000005c0| 21 34 38 3d 6d 61 78 58 | 25 3a 62 21 35 32 3d 30 |!48=maxX|%:b!52=0|
|000005d0| 0d 02 d0 0c 62 21 35 36 | 3d 26 32 44 0d 02 da 0e |....b!56|=&2D....|
|000005e0| 62 21 36 30 3d 26 33 30 | 30 30 0d 02 e4 1c 62 21 |b!60=&30|00....b!|
|000005f0| 36 34 3d 73 70 72 69 74 | 65 61 72 65 61 25 3a 20 |64=sprit|earea%: |
|00000600| 62 21 36 38 3d 30 0d 02 | ee 17 24 28 62 2b 37 32 |b!68=0..|..$(b+72|
|00000610| 29 3d c0 74 69 74 6c 65 | 24 2c 31 31 29 0d 02 f8 |)=.title|$,11)...|
|00000620| 0a 62 21 38 34 3d 30 0d | 03 02 1b c8 99 43 72 65 |.b!84=0.|.....Cre|
|00000630| 61 74 65 57 2c 30 2c 62 | 20 b8 20 68 61 6e 64 6c |ateW,0,b| . handl|
|00000640| 65 25 0d 03 0c 0c 3d 68 | 61 6e 64 6c 65 25 0d 03 |e%....=h|andle%..|
|00000650| 16 04 0d 03 20 65 dd a4 | 73 79 73 5f 64 65 66 69 |.... e..|sys_defi|
|00000660| 6e 65 77 69 6e 64 6f 77 | 57 28 74 69 74 6c 65 30 |newindow|W(title0|
|00000670| 25 2c 74 69 74 6c 65 31 | 25 2c 74 69 74 6c 65 32 |%,title1|%,title2|
|00000680| 25 2c 66 6c 61 67 73 25 | 2c 66 67 63 6f 6c 25 2c |%,flags%|,fgcol%,|
|00000690| 62 67 63 6f 6c 25 2c 6d | 61 78 58 25 2c 6d 61 78 |bgcol%,m|axX%,max|
|000006a0| 59 25 2c 77 61 4c 25 2c | 77 61 42 25 2c 77 61 52 |Y%,waL%,|waB%,waR|
|000006b0| 25 2c 77 61 54 25 29 0d | 03 2a 2a 21 62 3d 77 61 |%,waT%).|.**!b=wa|
|000006c0| 4c 25 3a 20 62 21 34 3d | 77 61 42 25 3a 20 62 21 |L%: b!4=|waB%: b!|
|000006d0| 38 3d 77 61 52 25 3a 20 | 62 21 31 32 3d 77 61 54 |8=waR%: |b!12=waT|
|000006e0| 25 0d 03 34 12 62 21 31 | 36 3d 30 3a 20 62 21 32 |%..4.b!1|6=0: b!2|
|000006f0| 30 3d 30 0d 03 3e 0b 62 | 21 32 34 3d 2d 31 0d 03 |0=0..>.b|!24=-1..|
|00000700| 48 0f 62 21 32 38 3d 66 | 6c 61 67 73 25 0d 03 52 |H.b!28=f|lags%..R|
|00000710| 24 62 3f 33 32 3d 69 63 | 6f 6e 5f 66 67 63 6f 6c |$b?32=ic|on_fgcol|
|00000720| 3a 20 62 3f 33 33 3d 69 | 63 6f 6e 5f 62 67 63 6f |: b?33=i|con_bgco|
|00000730| 6c 0d 03 5c 1b 62 3f 33 | 34 3d 66 67 63 6f 6c 25 |l..\.b?3|4=fgcol%|
|00000740| 3a 62 3f 33 35 3d 62 67 | 63 6f 6c 25 0d 03 66 29 |:b?35=bg|col%..f)|
|00000750| 62 3f 33 36 3d 73 63 72 | 6f 6c 6c 62 61 72 5f 62 |b?36=scr|ollbar_b|
|00000760| 67 63 6f 6c 3a 20 62 3f | 33 37 3d 69 63 6f 6e 5f |gcol: b?|37=icon_|
|00000770| 62 67 63 6f 6c 0d 03 70 | 14 62 3f 33 38 3d 66 6f |bgcol..p|.b?38=fo|
|00000780| 63 75 73 5f 62 67 63 6f | 6c 0d 03 7a 0a 62 3f 33 |cus_bgco|l..z.b?3|
|00000790| 39 3d 30 0d 03 84 17 62 | 21 34 30 3d 30 3a 20 62 |9=0....b|!40=0: b|
|000007a0| 21 34 34 3d 2d 6d 61 78 | 59 25 0d 03 8e 15 62 21 |!44=-max|Y%....b!|
|000007b0| 34 38 3d 6d 61 78 58 25 | 3a 62 21 35 32 3d 30 0d |48=maxX%|:b!52=0.|
|000007c0| 03 98 12 62 21 35 36 3d | 26 32 44 20 84 26 31 30 |...b!56=|&2D .&10|
|000007d0| 30 0d 03 a2 0e 62 21 36 | 30 3d 26 33 30 30 30 0d |0....b!6|0=&3000.|
|000007e0| 03 ac 1c 62 21 36 34 3d | 73 70 72 69 74 65 61 72 |...b!64=|spritear|
|000007f0| 65 61 25 3a 20 62 21 36 | 38 3d 30 0d 03 b6 1e 62 |ea%: b!6|8=0....b|
|00000800| 21 37 32 3d 74 69 74 6c | 65 30 25 3a 20 62 21 37 |!72=titl|e0%: b!7|
|00000810| 36 3d 74 69 74 6c 65 31 | 25 0d 03 c0 10 62 21 38 |6=title1|%....b!8|
|00000820| 30 3d 74 69 74 6c 65 32 | 25 0d 03 ca 0a 62 21 38 |0=title2|%....b!8|
|00000830| 34 3d 30 0d 03 d4 1b c8 | 99 43 72 65 61 74 65 57 |4=0.....|.CreateW|
|00000840| 2c 30 2c 62 20 b8 20 68 | 61 6e 64 6c 65 25 0d 03 |,0,b . h|andle%..|
|00000850| de 0c 3d 68 61 6e 64 6c | 65 25 0d 03 e8 04 0d 03 |..=handl|e%......|
|00000860| f2 13 dd f2 67 65 74 77 | 28 68 61 6e 64 6c 65 25 |....getw|(handle%|
|00000870| 29 0d 03 fc 19 21 62 3d | 68 61 6e 64 6c 65 25 3a |)....!b=|handle%:|
|00000880| c8 99 47 65 74 57 2c 30 | 2c 62 0d 04 06 28 f2 69 |..GetW,0|,b...(.i|
|00000890| 6e 66 6f 28 62 2b 34 29 | 3a 62 68 61 6e 64 6c 65 |nfo(b+4)|:bhandle|
|000008a0| 25 3d 62 21 32 38 3a 66 | 6c 61 67 73 25 3d 62 21 |%=b!28:f|lags%=b!|
|000008b0| 33 32 0d 04 10 05 e1 0d | 04 1a 04 0d 04 24 0d dd |32......|.....$..|
|000008c0| f2 69 6e 66 6f 28 62 29 | 0d 04 2e 37 78 30 25 3d |.info(b)|...7x0%=|
|000008d0| 21 62 3a 79 30 25 3d 62 | 21 34 3a 78 31 25 3d 62 |!b:y0%=b|!4:x1%=b|
|000008e0| 21 38 3a 79 31 25 3d 62 | 21 31 32 3a 73 63 78 25 |!8:y1%=b|!12:scx%|
|000008f0| 3d 62 21 31 36 3a 73 63 | 79 25 3d 62 21 32 30 0d |=b!16:sc|y%=b!20.|
|00000900| 04 38 1d 62 78 25 3d 78 | 30 25 2d 73 63 78 25 3a |.8.bx%=x|0%-scx%:|
|00000910| 62 79 25 3d 79 31 25 2d | 73 63 79 25 0d 04 42 05 |by%=y1%-|scy%..B.|
|00000920| e1 0d 04 4c 04 0d 04 56 | 14 dd f2 66 72 6f 6e 74 |...L...V|...front|
|00000930| 28 68 61 6e 64 6c 65 25 | 29 0d 04 60 11 e7 68 61 |(handle%|)..`..ha|
|00000940| 6e 64 6c 65 25 3d 2d 31 | 8c e1 0d 04 6a 26 f2 67 |ndle%=-1|....j&.g|
|00000950| 65 74 77 28 68 61 6e 64 | 6c 65 25 29 3a 62 21 32 |etw(hand|le%):b!2|
|00000960| 38 3d 2d 31 3a c8 99 4f | 70 65 6e 57 2c 30 2c 62 |8=-1:..O|penW,0,b|
|00000970| 0d 04 74 05 e1 0d 04 7e | 04 0d 04 88 48 dd f2 73 |..t....~|....H..s|
|00000980| 79 73 5f 64 65 66 69 6e | 65 69 63 6f 6e 28 62 6f |ys_defin|eicon(bo|
|00000990| 78 4c 25 2c 62 6f 78 42 | 25 2c 62 6f 78 52 25 2c |xL%,boxB|%,boxR%,|
|000009a0| 62 6f 78 54 25 2c 66 6c | 61 67 73 25 2c 66 67 63 |boxT%,fl|ags%,fgc|
|000009b0| 6f 6c 25 2c 62 67 63 6f | 6c 25 2c 64 61 74 61 24 |ol%,bgco|l%,data$|
|000009c0| 29 0d 04 92 4d 69 63 6f | 6e 25 3d a4 73 79 73 5f |)...Mico|n%=.sys_|
|000009d0| 64 65 66 69 6e 65 69 63 | 6f 6e 28 62 6f 78 4c 25 |defineic|on(boxL%|
|000009e0| 2c 62 6f 78 42 25 2c 62 | 6f 78 52 25 2c 62 6f 78 |,boxB%,b|oxR%,box|
|000009f0| 54 25 2c 66 6c 61 67 73 | 25 2c 66 67 63 6f 6c 25 |T%,flags|%,fgcol%|
|00000a00| 2c 62 67 63 6f 6c 25 2c | 64 61 74 61 24 29 0d 04 |,bgcol%,|data$)..|
|00000a10| 9c 05 e1 0d 04 a6 04 0d | 04 b0 48 dd a4 73 79 73 |........|..H..sys|
|00000a20| 5f 64 65 66 69 6e 65 69 | 63 6f 6e 28 62 6f 78 4c |_definei|con(boxL|
|00000a30| 25 2c 62 6f 78 42 25 2c | 62 6f 78 52 25 2c 62 6f |%,boxB%,|boxR%,bo|
|00000a40| 78 54 25 2c 66 6c 61 67 | 73 25 2c 66 67 63 6f 6c |xT%,flag|s%,fgcol|
|00000a50| 25 2c 62 67 63 6f 6c 25 | 2c 64 61 74 61 24 29 0d |%,bgcol%|,data$).|
|00000a60| 04 ba 0e 21 62 3d 68 61 | 6e 64 6c 65 25 0d 04 c4 |...!b=ha|ndle%...|
|00000a70| 30 62 21 34 3d 62 6f 78 | 4c 25 3a 20 62 21 38 3d |0b!4=box|L%: b!8=|
|00000a80| 62 6f 78 42 25 3a 20 62 | 21 31 32 3d 62 6f 78 52 |boxB%: b|!12=boxR|
|00000a90| 25 3a 20 62 21 31 36 3d | 62 6f 78 54 25 0d 04 ce |%: b!16=|boxT%...|
|00000aa0| 0f 62 21 32 30 3d 66 6c | 61 67 73 25 0d 04 d8 22 |.b!20=fl|ags%..."|
|00000ab0| 62 3f 32 33 3d 28 66 67 | 63 6f 6c 25 20 80 26 46 |b?23=(fg|col% .&F|
|00000ac0| 29 2b 28 62 67 63 6f 6c | 25 20 3c 3c 34 29 0d 04 |)+(bgcol|% <<4)..|
|00000ad0| e2 11 24 28 62 2b 32 34 | 29 3d 64 61 74 61 24 0d |..$(b+24|)=data$.|
|00000ae0| 04 ec 19 c8 99 43 72 65 | 61 74 65 49 2c 30 2c 62 |.....Cre|ateI,0,b|
|00000af0| 20 b8 20 69 63 6f 6e 25 | 0d 04 f6 0a 3d 69 63 6f | . icon%|....=ico|
|00000b00| 6e 25 0d 05 00 04 0d 05 | 0a 2b dd f2 73 79 73 5f |n%......|.+..sys_|
|00000b10| 63 72 65 61 74 65 64 69 | 61 6c 6f 67 75 65 28 73 |createdi|alogue(s|
|00000b20| 75 66 66 69 78 24 2c 77 | 61 57 25 2c 77 61 48 25 |uffix$,w|aW%,waH%|
|00000b30| 29 0d 05 14 0e ea 77 61 | 4c 25 2c 77 61 54 25 0d |).....wa|L%,waT%.|
|00000b40| 05 1e 16 64 69 61 6c 6f | 67 75 65 63 72 65 61 74 |...dialo|guecreat|
|00000b50| 65 64 25 3d b9 0d 05 28 | 15 c8 97 20 77 61 4c 25 |ed%=...(|... waL%|
|00000b60| 2c 77 61 54 25 2c 76 6f | 69 64 0d 05 32 13 e7 64 |,waT%,vo|id..2..d|
|00000b70| 69 61 6c 6f 67 75 65 25 | 3e 2d 31 20 8c 0d 05 3c |ialogue%|>-1 ...<|
|00000b80| 37 f2 67 65 74 77 28 64 | 69 61 6c 6f 67 75 65 25 |7.getw(d|ialogue%|
|00000b90| 29 3a 20 e7 62 21 33 32 | 20 80 26 31 30 30 30 30 |): .b!32| .&10000|
|00000ba0| 20 77 61 4c 25 3d 62 21 | 34 3a 20 77 61 54 25 3d | waL%=b!|4: waT%=|
|00000bb0| 62 21 31 36 0d 05 46 16 | f2 64 65 6c 65 74 65 28 |b!16..F.|.delete(|
|00000bc0| 64 69 61 6c 6f 67 75 65 | 25 29 0d 05 50 05 cd 0d |dialogue|%)..P...|
|00000bd0| 05 5a 25 e7 28 77 61 4c | 25 2b 77 61 57 25 29 3e |.Z%.(waL|%+waW%)>|
|00000be0| 3d 31 32 37 38 20 77 61 | 4c 25 3d 31 32 37 38 2d |=1278 wa|L%=1278-|
|00000bf0| 77 61 57 25 0d 05 64 24 | e7 28 77 61 54 25 2d 77 |waW%..d$|.(waT%-w|
|00000c00| 61 48 25 29 3c 3d 31 30 | 30 20 20 77 61 54 25 3d |aH%)<=10|0  waT%=|
|00000c10| 31 30 30 2b 77 61 48 25 | 0d 05 6e 55 64 69 61 6c |100+waH%|..nUdial|
|00000c20| 6f 67 75 65 25 3d a4 73 | 79 73 5f 64 65 66 69 6e |ogue%=.s|ys_defin|
|00000c30| 65 77 69 6e 64 6f 77 28 | 22 22 2c 26 31 30 2c 37 |ewindow(|"",&10,7|
|00000c40| 2c 30 2c 20 77 61 57 25 | 2c 77 61 48 25 2c 20 77 |,0, waW%|,waH%, w|
|00000c50| 61 4c 25 2c 77 61 54 25 | 2d 77 61 48 25 2c 77 61 |aL%,waT%|-waH%,wa|
|00000c60| 4c 25 2b 77 61 57 25 2c | 77 61 54 25 29 0d 05 78 |L%+waW%,|waT%)..x|
|00000c70| 1a 63 6c 61 69 6d 64 69 | 61 6c 6f 67 75 65 24 3d |.claimdi|alogue$=|
|00000c80| 73 75 66 66 69 78 24 0d | 05 82 05 e1 0d 05 8c 04 |suffix$.|........|
|00000c90| 0d 05 96 16 dd f2 73 79 | 73 5f 6f 70 65 6e 64 69 |......sy|s_opendi|
|00000ca0| 61 6c 6f 67 75 65 0d 05 | a0 14 f2 67 65 74 77 28 |alogue..|...getw(|
|00000cb0| 64 69 61 6c 6f 67 75 65 | 25 29 0d 05 aa 23 c8 97 |dialogue|%)...#..|
|00000cc0| 20 c8 93 20 62 21 34 2c | 62 21 38 2c 62 21 31 32 | .. b!4,|b!8,b!12|
|00000cd0| 2d 62 21 34 2c 62 21 31 | 36 2d 62 21 38 0d 05 b4 |-b!4,b!1|6-b!8...|
|00000ce0| 15 f2 66 72 6f 6e 74 28 | 64 69 61 6c 6f 67 75 65 |..front(|dialogue|
|00000cf0| 25 29 0d 05 be 05 e1 0d | 05 c8 04 0d 05 d2 17 dd |%)......|........|
|00000d00| f2 73 79 73 5f 63 6c 6f | 73 65 64 69 61 6c 6f 67 |.sys_clo|sedialog|
|00000d10| 75 65 0d 05 dc 17 c8 97 | 20 c8 93 20 30 2c 30 2c |ue......| .. 0,0,|
|00000d20| 31 32 37 39 2c 31 30 32 | 33 0d 05 e6 1c f2 63 6c |1279,102|3.....cl|
|00000d30| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 64 69 61 6c 6f |ose_wind|ow(dialo|
|00000d40| 67 75 65 25 29 0d 05 f0 | 15 63 6c 61 69 6d 64 69 |gue%)...|.claimdi|
|00000d50| 61 6c 6f 67 75 65 24 3d | 22 22 0d 05 fa 05 e1 0d |alogue$=|""......|
|00000d60| 06 04 04 0d 06 0e 16 dd | 20 f2 64 65 6c 65 74 65 |........| .delete|
|00000d70| 28 68 61 6e 64 6c 65 25 | 29 0d 06 18 0e 21 62 3d |(handle%|)....!b=|
|00000d80| 68 61 6e 64 6c 65 25 0d | 06 22 11 c8 99 44 65 6c |handle%.|."...Del|
|00000d90| 65 74 65 57 2c 30 2c 62 | 0d 06 2c 05 e1 0d 06 36 |eteW,0,b|..,....6|
|00000da0| 04 0d 06 40 1c dd 20 f2 | 63 6c 6f 73 65 5f 77 69 |...@.. .|close_wi|
|00000db0| 6e 64 6f 77 28 68 61 6e | 64 6c 65 25 29 0d 06 4a |ndow(han|dle%)..J|
|00000dc0| 0e 21 62 3d 68 61 6e 64 | 6c 65 25 0d 06 54 10 c8 |.!b=hand|le%..T..|
|00000dd0| 99 43 6c 6f 73 65 57 2c | 30 2c 62 0d 06 5e 05 e1 |.CloseW,|0,b..^..|
|00000de0| 0d 06 68 04 0d 06 72 41 | dd 20 f2 73 79 73 5f 6f |..h...rA|. .sys_o|
|00000df0| 70 65 6e 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |penwindo|w(handle|
|00000e00| 25 2c 77 61 4c 25 2c 77 | 61 42 25 2c 77 61 52 25 |%,waL%,w|aB%,waR%|
|00000e10| 2c 77 61 54 25 2c 73 63 | 58 25 2c 73 63 59 25 2c |,waT%,sc|X%,scY%,|
|00000e20| 62 65 68 25 29 0d 06 7c | 0e 21 62 3d 68 61 6e 64 |beh%)..||.!b=hand|
|00000e30| 6c 65 25 0d 06 86 29 62 | 21 34 3d 77 61 4c 25 3a |le%...)b|!4=waL%:|
|00000e40| 62 21 38 3d 77 61 42 25 | 3a 62 21 31 32 3d 77 61 |b!8=waB%|:b!12=wa|
|00000e50| 52 25 3a 62 21 31 36 3d | 77 61 54 25 0d 06 90 17 |R%:b!16=|waT%....|
|00000e60| 62 21 32 30 3d 73 63 58 | 25 3a 62 21 32 34 3d 73 |b!20=scX|%:b!24=s|
|00000e70| 63 59 25 0d 06 9a 0d 62 | 21 32 38 3d 62 65 68 25 |cY%....b|!28=beh%|
|00000e80| 0d 06 a4 10 c8 99 20 4f | 70 65 6e 57 2c 30 2c 62 |...... O|penW,0,b|
|00000e90| 0d 06 ae 05 e1 0d 06 b8 | 04 0d 06 c2 3b dd f2 73 |........|....;..s|
|00000ea0| 79 73 5f 77 61 72 6e 69 | 6e 67 62 6f 78 28 73 75 |ys_warni|ngbox(su|
|00000eb0| 66 66 69 78 24 2c 74 65 | 78 74 30 24 2c 74 65 78 |ffix$,te|xt0$,tex|
|00000ec0| 74 31 24 2c 74 65 78 74 | 32 24 2c 62 75 74 74 6f |t1$,text|2$,butto|
|00000ed0| 6e 73 24 29 0d 06 cc 1d | ea 62 6f 78 57 25 2c 62 |ns$)....|.boxW%,b|
|00000ee0| 6f 78 48 25 2c 62 6f 64 | 67 65 68 65 69 67 68 74 |oxH%,bod|geheight|
|00000ef0| 25 0d 06 d6 23 ea 62 75 | 74 4c 25 2c 62 75 74 42 |%...#.bu|tL%,butB|
|00000f00| 25 2c 62 75 74 52 25 2c | 62 75 74 54 25 2c 20 62 |%,butR%,|butT%, b|
|00000f10| 75 74 57 25 0d 06 e0 09 | ea 70 74 72 25 0d 06 ea |utW%....|.ptr%...|
|00000f20| 0a c8 8e 20 eb 20 ca 0d | 06 f4 07 c9 31 32 0d 06 |... . ..|....12..|
|00000f30| fe 14 62 6f 64 67 65 68 | 65 69 67 68 74 25 3d 31 |..bodgeh|eight%=1|
|00000f40| 39 32 0d 07 08 0a c9 32 | 32 2c 32 30 0d 07 12 16 |92.....2|2,20....|
|00000f50| 62 6f 64 67 65 68 65 69 | 67 68 74 25 3d 31 39 32 |bodgehei|ght%=192|
|00000f60| 2f 32 0d 07 1c 05 cb 0d | 07 26 11 62 6f 78 57 25 |/2......|.&.boxW%|
|00000f70| 3d a9 74 65 78 74 30 24 | 0d 07 30 20 e7 62 6f 78 |=.text0$|..0 .box|
|00000f80| 57 25 3c a9 74 65 78 74 | 31 24 20 62 6f 78 57 25 |W%<.text|1$ boxW%|
|00000f90| 3d a9 74 65 78 74 31 24 | 0d 07 3a 20 e7 62 6f 78 |=.text1$|..: .box|
|00000fa0| 57 25 3c a9 74 65 78 74 | 32 24 20 62 6f 78 57 25 |W%<.text|2$ boxW%|
|00000fb0| 3d a9 74 65 78 74 32 24 | 0d 07 44 18 62 6f 78 57 |=.text2$|..D.boxW|
|00000fc0| 25 3d 28 34 2b 62 6f 78 | 57 25 29 2a 63 68 58 25 |%=(4+box|W%)*chX%|
|00000fd0| 0d 07 4e 39 62 6f 78 48 | 25 3d 63 68 59 25 2a 28 |..N9boxH|%=chY%*(|
|00000fe0| 35 2d 28 74 65 78 74 31 | 24 3c 3e 22 22 29 2d 28 |5-(text1|$<>"")-(|
|00000ff0| 74 65 78 74 32 24 3c 3e | 22 22 29 29 2b 62 6f 64 |text2$<>|""))+bod|
|00001000| 67 65 68 65 69 67 68 74 | 25 0d 07 58 3a 62 75 74 |geheight|%..X:but|
|00001010| 57 25 3d 63 68 58 25 2a | 35 3a 20 62 75 74 42 25 |W%=chX%*|5: butB%|
|00001020| 3d 63 68 59 25 81 32 2d | 62 6f 78 48 25 3a 20 62 |=chY%.2-|boxH%: b|
|00001030| 75 74 54 25 3d 62 75 74 | 42 25 2b 63 68 59 25 2a |utT%=but|B%+chY%*|
|00001040| 31 2e 35 0d 07 62 2e 62 | 75 74 4c 25 3d 28 62 6f |1.5..b.b|utL%=(bo|
|00001050| 78 57 25 2d 32 2a 62 75 | 74 57 25 29 2f 33 3a 20 |xW%-2*bu|tW%)/3: |
|00001060| 62 75 74 52 25 3d 62 6f | 78 57 25 2d 62 75 74 4c |butR%=bo|xW%-butL|
|00001070| 25 0d 07 6c 2b e7 c0 62 | 75 74 74 6f 6e 73 24 2c |%..l+..b|uttons$,|
|00001080| 31 29 3d 22 2d 22 20 84 | c1 62 75 74 74 6f 6e 73 |1)="-" .|.buttons|
|00001090| 24 2c 32 2c 31 29 3d 22 | 2d 22 20 8c 0d 07 76 2c |$,2,1)="|-" ...v,|
|000010a0| 62 75 74 4c 25 3d 28 62 | 6f 78 57 25 2d 62 75 74 |butL%=(b|oxW%-but|
|000010b0| 57 25 29 2f 32 3a 20 62 | 75 74 52 25 3d 62 75 74 |W%)/2: b|utR%=but|
|000010c0| 4c 25 2b 62 75 74 57 25 | 0d 07 80 05 cd 0d 07 8a |L%+butW%|........|
|000010d0| 2c f2 73 79 73 5f 63 72 | 65 61 74 65 64 69 61 6c |,.sys_cr|eatedial|
|000010e0| 6f 67 75 65 28 73 75 66 | 66 69 78 24 2c 62 6f 78 |ogue(suf|fix$,box|
|000010f0| 57 25 2c 62 6f 78 48 25 | 29 0d 07 94 57 e7 c0 62 |W%,boxH%|)...W..b|
|00001100| 75 74 74 6f 6e 73 24 2c | 31 29 3d 22 6f 22 20 6f |uttons$,|1)="o" o|
|00001110| 6b 25 3d a4 73 79 73 5f | 64 65 66 69 6e 65 69 63 |k%=.sys_|defineic|
|00001120| 6f 6e 28 62 75 74 4c 25 | 2c 62 75 74 42 25 2c 62 |on(butL%|,butB%,b|
|00001130| 75 74 4c 25 2b 62 75 74 | 57 25 2c 62 75 74 54 25 |utL%+but|W%,butT%|
|00001140| 2c 26 34 30 32 44 2c 37 | 2c 32 2c 22 4f 4b 22 29 |,&402D,7|,2,"OK")|
|00001150| 0d 07 9e 59 e7 c0 62 75 | 74 74 6f 6e 73 24 2c 31 |...Y..bu|ttons$,1|
|00001160| 29 3d 22 79 22 20 79 65 | 73 25 3d a4 73 79 73 5f |)="y" ye|s%=.sys_|
|00001170| 64 65 66 69 6e 65 69 63 | 6f 6e 28 62 75 74 4c 25 |defineic|on(butL%|
|00001180| 2c 62 75 74 42 25 2c 62 | 75 74 4c 25 2b 62 75 74 |,butB%,b|utL%+but|
|00001190| 57 25 2c 62 75 74 54 25 | 2c 26 34 30 32 44 2c 37 |W%,butT%|,&402D,7|
|000011a0| 2c 32 2c 22 59 65 73 22 | 29 0d 07 a8 59 e7 c1 62 |,2,"Yes"|)...Y..b|
|000011b0| 75 74 74 6f 6e 73 24 2c | 32 2c 31 29 3d 22 6e 22 |uttons$,|2,1)="n"|
|000011c0| 20 6e 6f 25 3d a4 73 79 | 73 5f 64 65 66 69 6e 65 | no%=.sy|s_define|
|000011d0| 69 63 6f 6e 28 62 75 74 | 52 25 2d 62 75 74 57 25 |icon(but|R%-butW%|
|000011e0| 2c 62 75 74 42 25 2c 62 | 75 74 52 25 2c 62 75 74 |,butB%,b|utR%,but|
|000011f0| 54 25 2c 26 34 30 32 44 | 2c 37 2c 32 2c 22 4e 6f |T%,&402D|,7,2,"No|
|00001200| 22 29 0d 07 b2 5d e7 c1 | 62 75 74 74 6f 6e 73 24 |")...]..|buttons$|
|00001210| 2c 32 2c 31 29 3d 22 71 | 22 20 71 75 69 74 25 3d |,2,1)="q|" quit%=|
|00001220| a4 73 79 73 5f 64 65 66 | 69 6e 65 69 63 6f 6e 28 |.sys_def|ineicon(|
|00001230| 62 75 74 52 25 2d 62 75 | 74 57 25 2c 62 75 74 42 |butR%-bu|tW%,butB|
|00001240| 25 2c 62 75 74 52 25 2c | 62 75 74 54 25 2c 26 34 |%,butR%,|butT%,&4|
|00001250| 30 32 44 2c 37 2c 32 2c | 22 51 75 69 74 22 29 0d |02D,7,2,|"Quit").|
|00001260| 07 bc 3e f2 73 79 73 5f | 64 65 66 69 6e 65 69 63 |..>.sys_|defineic|
|00001270| 6f 6e 28 30 2c 2d 62 6f | 64 67 65 68 65 69 67 68 |on(0,-bo|dgeheigh|
|00001280| 74 25 2c 62 6f 78 57 25 | 2c 30 2c 26 31 41 2c 37 |t%,boxW%|,0,&1A,7|
|00001290| 2c 32 2c 22 77 61 72 6e | 69 6e 67 22 29 0d 07 c6 |,2,"warn|ing")...|
|000012a0| 11 e7 74 65 78 74 30 24 | 3c 3e 22 22 20 8c 0d 07 |..text0$|<>"" ...|
|000012b0| d0 1e 70 74 72 25 3d 73 | 79 73 5f 62 32 25 3a 20 |..ptr%=s|ys_b2%: |
|000012c0| 24 70 74 72 25 3d 74 65 | 78 74 30 24 0d 07 da 59 |$ptr%=te|xt0$...Y|
|000012d0| f2 73 79 73 5f 64 65 66 | 69 6e 65 69 63 6f 6e 57 |.sys_def|ineiconW|
|000012e0| 28 30 2c 2d 62 6f 64 67 | 65 68 65 69 67 68 74 25 |(0,-bodg|eheight%|
|000012f0| 2d 31 2e 35 2a 63 68 59 | 25 2c 62 6f 78 57 25 2c |-1.5*chY|%,boxW%,|
|00001300| 2d 62 6f 64 67 65 68 65 | 69 67 68 74 25 2c 26 30 |-bodgehe|ight%,&0|
|00001310| 31 30 39 2c 37 2c 32 2c | 20 70 74 72 25 2c 2d 31 |109,7,2,| ptr%,-1|
|00001320| 2c 31 30 30 29 0d 07 e4 | 05 cd 0d 07 ee 11 e7 74 |,100)...|.......t|
|00001330| 65 78 74 31 24 3c 3e 22 | 22 20 8c 0d 07 f8 20 70 |ext1$<>"|" .... p|
|00001340| 74 72 25 2b 3d 31 2b a9 | 24 70 74 72 25 3a 20 24 |tr%+=1+.|$ptr%: $|
|00001350| 70 74 72 25 3d 74 65 78 | 74 31 24 0d 08 02 60 f2 |ptr%=tex|t1$...`.|
|00001360| 73 79 73 5f 64 65 66 69 | 6e 65 69 63 6f 6e 57 28 |sys_defi|neiconW(|
|00001370| 30 2c 2d 62 6f 64 67 65 | 68 65 69 67 68 74 25 2d |0,-bodge|height%-|
|00001380| 33 2a 63 68 59 25 2c 62 | 6f 78 57 25 2c 2d 62 6f |3*chY%,b|oxW%,-bo|
|00001390| 64 67 65 68 65 69 67 68 | 74 25 2d 31 2e 35 2a 63 |dgeheigh|t%-1.5*c|
|000013a0| 68 59 25 2c 26 30 31 30 | 39 2c 37 2c 32 2c 20 70 |hY%,&010|9,7,2, p|
|000013b0| 74 72 25 2c 2d 31 2c 31 | 30 30 29 0d 08 0c 05 cd |tr%,-1,1|00).....|
|000013c0| 0d 08 16 11 e7 74 65 78 | 74 32 24 3c 3e 22 22 20 |.....tex|t2$<>"" |
|000013d0| 8c 0d 08 20 20 70 74 72 | 25 2b 3d 31 2b a9 24 70 |...  ptr|%+=1+.$p|
|000013e0| 74 72 25 3a 20 24 70 74 | 72 25 3d 74 65 78 74 32 |tr%: $pt|r%=text2|
|000013f0| 24 0d 08 2a 60 f2 73 79 | 73 5f 64 65 66 69 6e 65 |$..*`.sy|s_define|
|00001400| 69 63 6f 6e 57 28 30 2c | 2d 62 6f 64 67 65 68 65 |iconW(0,|-bodgehe|
|00001410| 69 67 68 74 25 2d 34 2e | 35 2a 63 68 59 25 2c 62 |ight%-4.|5*chY%,b|
|00001420| 6f 78 57 25 2c 2d 62 6f | 64 67 65 68 65 69 67 68 |oxW%,-bo|dgeheigh|
|00001430| 74 25 2d 33 2a 63 68 59 | 25 2c 26 30 31 30 39 2c |t%-3*chY|%,&0109,|
|00001440| 37 2c 32 2c 20 70 74 72 | 25 2c 2d 31 2c 31 30 30 |7,2, ptr|%,-1,100|
|00001450| 29 0d 08 34 05 cd 0d 08 | 3e 15 f2 73 79 73 5f 6f |)..4....|>..sys_o|
|00001460| 70 65 6e 64 69 61 6c 6f | 67 75 65 0d 08 48 05 e1 |pendialo|gue..H..|
|00001470| 0d 08 52 04 0d 08 5c 30 | dd f2 73 79 73 5f 79 65 |..R...\0|..sys_ye|
|00001480| 73 6e 6f 62 6f 78 28 73 | 75 66 66 69 78 24 2c 74 |snobox(s|uffix$,t|
|00001490| 65 78 74 30 24 2c 74 65 | 78 74 31 24 2c 74 65 78 |ext0$,te|xt1$,tex|
|000014a0| 74 32 24 29 0d 08 66 10 | ea 62 6f 78 57 25 2c 62 |t2$)..f.|.boxW%,b|
|000014b0| 6f 78 48 25 0d 08 70 23 | ea 62 75 74 4c 25 2c 62 |oxH%..p#|.butL%,b|
|000014c0| 75 74 42 25 2c 62 75 74 | 52 25 2c 62 75 74 54 25 |utB%,but|R%,butT%|
|000014d0| 2c 20 62 75 74 57 25 0d | 08 7a 09 ea 70 74 72 25 |, butW%.|.z..ptr%|
|000014e0| 0d 08 84 11 62 6f 78 57 | 25 3d a9 74 65 78 74 30 |....boxW|%=.text0|
|000014f0| 24 0d 08 8e 20 e7 62 6f | 78 57 25 3c a9 74 65 78 |$... .bo|xW%<.tex|
|00001500| 74 31 24 20 62 6f 78 57 | 25 3d a9 74 65 78 74 31 |t1$ boxW|%=.text1|
|00001510| 24 0d 08 98 20 e7 62 6f | 78 57 25 3c a9 74 65 78 |$... .bo|xW%<.tex|
|00001520| 74 32 24 20 62 6f 78 57 | 25 3d a9 74 65 78 74 32 |t2$ boxW|%=.text2|
|00001530| 24 0d 08 a2 18 62 6f 78 | 57 25 3d 28 34 2b 62 6f |$....box|W%=(4+bo|
|00001540| 78 57 25 29 2a 63 68 58 | 25 0d 08 ac 37 62 6f 78 |xW%)*chX|%...7box|
|00001550| 48 25 3d 63 68 59 25 81 | 32 2b 31 2e 35 2a 63 68 |H%=chY%.|2+1.5*ch|
|00001560| 59 25 2a 28 33 2d 28 74 | 65 78 74 31 24 3c 3e 22 |Y%*(3-(t|ext1$<>"|
|00001570| 22 29 2d 28 74 65 78 74 | 32 24 3c 3e 22 22 29 29 |")-(text|2$<>""))|
|00001580| 0d 08 b6 32 62 75 74 4c | 25 3d 63 68 58 25 2a 32 |...2butL|%=chX%*2|
|00001590| 3a 20 62 75 74 52 25 3d | 62 6f 78 57 25 2d 32 2a |: butR%=|boxW%-2*|
|000015a0| 63 68 58 25 3a 20 62 75 | 74 57 25 3d 63 68 58 25 |chX%: bu|tW%=chX%|
|000015b0| 2a 35 0d 08 c0 2e 62 75 | 74 4c 25 3d 28 62 6f 78 |*5....bu|tL%=(box|
|000015c0| 57 25 2d 32 2a 62 75 74 | 57 25 29 2f 33 3a 20 62 |W%-2*but|W%)/3: b|
|000015d0| 75 74 52 25 3d 62 6f 78 | 57 25 2d 62 75 74 4c 25 |utR%=box|W%-butL%|
|000015e0| 0d 08 ca 33 62 75 74 42 | 25 3d 63 68 59 25 81 32 |...3butB|%=chY%.2|
|000015f0| 2d 62 6f 78 48 25 3a 20 | 62 75 74 54 25 3d 63 68 |-boxH%: |butT%=ch|
|00001600| 59 25 2a 31 2e 35 2b 63 | 68 59 25 81 32 2d 62 6f |Y%*1.5+c|hY%.2-bo|
|00001610| 78 48 25 0d 08 d4 2c f2 | 73 79 73 5f 63 72 65 61 |xH%...,.|sys_crea|
|00001620| 74 65 64 69 61 6c 6f 67 | 75 65 28 73 75 66 66 69 |tedialog|ue(suffi|
|00001630| 78 24 2c 62 6f 78 57 25 | 2c 62 6f 78 48 25 29 0d |x$,boxW%|,boxH%).|
|00001640| 08 de 47 79 65 73 25 3d | a4 73 79 73 5f 64 65 66 |..Gyes%=|.sys_def|
|00001650| 69 6e 65 69 63 6f 6e 28 | 62 75 74 4c 25 2c 62 75 |ineicon(|butL%,bu|
|00001660| 74 42 25 2c 62 75 74 4c | 25 2b 62 75 74 57 25 2c |tB%,butL|%+butW%,|
|00001670| 62 75 74 54 25 2c 26 34 | 30 32 44 2c 37 2c 32 2c |butT%,&4|02D,7,2,|
|00001680| 22 59 65 73 22 29 0d 08 | e8 45 6e 6f 25 3d a4 73 |"Yes")..|.Eno%=.s|
|00001690| 79 73 5f 64 65 66 69 6e | 65 69 63 6f 6e 28 62 75 |ys_defin|eicon(bu|
|000016a0| 74 52 25 2d 62 75 74 57 | 25 2c 62 75 74 42 25 2c |tR%-butW|%,butB%,|
|000016b0| 62 75 74 52 25 2c 62 75 | 74 54 25 2c 26 34 30 32 |butR%,bu|tT%,&402|
|000016c0| 44 2c 37 2c 32 2c 22 4e | 6f 22 29 0d 08 f2 11 e7 |D,7,2,"N|o").....|
|000016d0| 74 65 78 74 30 24 3c 3e | 22 22 20 8c 0d 08 fc 1e |text0$<>|"" .....|
|000016e0| 70 74 72 25 3d 73 79 73 | 5f 62 32 25 3a 20 24 70 |ptr%=sys|_b2%: $p|
|000016f0| 74 72 25 3d 74 65 78 74 | 30 24 0d 09 06 47 f2 73 |tr%=text|0$...G.s|
|00001700| 79 73 5f 64 65 66 69 6e | 65 69 63 6f 6e 57 28 32 |ys_defin|eiconW(2|
|00001710| 2a 63 68 58 25 2c 2d 32 | 2a 63 68 59 25 2c 62 6f |*chX%,-2|*chY%,bo|
|00001720| 78 57 25 2c 2d 63 68 59 | 25 2c 26 30 31 30 31 2c |xW%,-chY|%,&0101,|
|00001730| 37 2c 32 2c 20 70 74 72 | 25 2c 2d 31 2c 31 30 30 |7,2, ptr|%,-1,100|
|00001740| 29 0d 09 10 05 cd 0d 09 | 1a 11 e7 74 65 78 74 31 |).......|...text1|
|00001750| 24 3c 3e 22 22 20 8c 0d | 09 24 20 70 74 72 25 2b |$<>"" ..|.$ ptr%+|
|00001760| 3d 31 2b a9 24 70 74 72 | 25 3a 20 24 70 74 72 25 |=1+.$ptr|%: $ptr%|
|00001770| 3d 74 65 78 74 31 24 0d | 09 2e 4d f2 73 79 73 5f |=text1$.|..M.sys_|
|00001780| 64 65 66 69 6e 65 69 63 | 6f 6e 57 28 32 2a 63 68 |defineic|onW(2*ch|
|00001790| 58 25 2c 2d 33 2e 35 2a | 63 68 59 25 2c 62 6f 78 |X%,-3.5*|chY%,box|
|000017a0| 57 25 2c 2d 32 2e 35 2a | 63 68 59 25 2c 26 30 31 |W%,-2.5*|chY%,&01|
|000017b0| 30 31 2c 37 2c 32 2c 20 | 70 74 72 25 2c 2d 31 2c |01,7,2, |ptr%,-1,|
|000017c0| 31 30 30 29 0d 09 38 05 | cd 0d 09 42 11 e7 74 65 |100)..8.|...B..te|
|000017d0| 78 74 32 24 3c 3e 22 22 | 20 8c 0d 09 4c 20 70 74 |xt2$<>""| ...L pt|
|000017e0| 72 25 2b 3d 31 2b a9 24 | 70 74 72 25 3a 20 24 70 |r%+=1+.$|ptr%: $p|
|000017f0| 74 72 25 3d 74 65 78 74 | 32 24 0d 09 56 49 f2 73 |tr%=text|2$..VI.s|
|00001800| 79 73 5f 64 65 66 69 6e | 65 69 63 6f 6e 57 28 32 |ys_defin|eiconW(2|
|00001810| 2a 63 68 58 25 2c 2d 35 | 2a 63 68 59 25 2c 62 6f |*chX%,-5|*chY%,bo|
|00001820| 78 57 25 2c 2d 34 2a 63 | 68 59 25 2c 26 30 31 30 |xW%,-4*c|hY%,&010|
|00001830| 31 2c 37 2c 32 2c 20 70 | 74 72 25 2c 2d 31 2c 31 |1,7,2, p|tr%,-1,1|
|00001840| 30 30 29 0d 09 60 05 cd | 0d 09 6a 15 f2 73 79 73 |00)..`..|..j..sys|
|00001850| 5f 6f 70 65 6e 64 69 61 | 6c 6f 67 75 65 0d 09 74 |_opendia|logue..t|
|00001860| 05 e1 0d 09 7e 04 0d 09 | 88 58 dd f2 73 79 73 5f |....~...|.X..sys_|
|00001870| 64 65 66 69 6e 65 69 63 | 6f 6e 57 28 62 6f 78 4c |defineic|onW(boxL|
|00001880| 25 2c 62 6f 78 42 25 2c | 62 6f 78 52 25 2c 62 6f |%,boxB%,|boxR%,bo|
|00001890| 78 54 25 2c 66 6c 61 67 | 73 25 2c 66 67 63 6f 6c |xT%,flag|s%,fgcol|
|000018a0| 25 2c 62 67 63 6f 6c 25 | 2c 64 61 74 61 30 25 2c |%,bgcol%|,data0%,|
|000018b0| 64 61 74 61 31 25 2c 64 | 61 74 61 32 25 29 0d 09 |data1%,d|ata2%)..|
|000018c0| 92 5d 69 63 6f 6e 25 3d | a4 73 79 73 5f 64 65 66 |.]icon%=|.sys_def|
|000018d0| 69 6e 65 69 63 6f 6e 57 | 28 62 6f 78 4c 25 2c 62 |ineiconW|(boxL%,b|
|000018e0| 6f 78 42 25 2c 62 6f 78 | 52 25 2c 62 6f 78 54 25 |oxB%,box|R%,boxT%|
|000018f0| 2c 66 6c 61 67 73 25 2c | 66 67 63 6f 6c 25 2c 62 |,flags%,|fgcol%,b|
|00001900| 67 63 6f 6c 25 2c 64 61 | 74 61 30 25 2c 64 61 74 |gcol%,da|ta0%,dat|
|00001910| 61 31 25 2c 64 61 74 61 | 32 25 29 0d 09 9c 05 e1 |a1%,data|2%).....|
|00001920| 0d 09 a6 04 0d 09 b0 58 | dd a4 73 79 73 5f 64 65 |.......X|..sys_de|
|00001930| 66 69 6e 65 69 63 6f 6e | 57 28 62 6f 78 4c 25 2c |fineicon|W(boxL%,|
|00001940| 62 6f 78 42 25 2c 62 6f | 78 52 25 2c 62 6f 78 54 |boxB%,bo|xR%,boxT|
|00001950| 25 2c 66 6c 61 67 73 25 | 2c 66 67 63 6f 6c 25 2c |%,flags%|,fgcol%,|
|00001960| 62 67 63 6f 6c 25 2c 64 | 61 74 61 30 25 2c 64 61 |bgcol%,d|ata0%,da|
|00001970| 74 61 31 25 2c 64 61 74 | 61 32 25 29 0d 09 ba 0e |ta1%,dat|a2%)....|
|00001980| 21 62 3d 68 61 6e 64 6c | 65 25 0d 09 c4 30 62 21 |!b=handl|e%...0b!|
|00001990| 34 3d 62 6f 78 4c 25 3a | 20 62 21 38 3d 62 6f 78 |4=boxL%:| b!8=box|
|000019a0| 42 25 3a 20 62 21 31 32 | 3d 62 6f 78 52 25 3a 20 |B%: b!12|=boxR%: |
|000019b0| 62 21 31 36 3d 62 6f 78 | 54 25 0d 09 ce 15 62 21 |b!16=box|T%....b!|
|000019c0| 32 30 3d 66 6c 61 67 73 | 25 20 84 26 31 30 30 0d |20=flags|% .&100.|
|000019d0| 09 d8 22 62 3f 32 33 3d | 28 66 67 63 6f 6c 25 20 |.."b?23=|(fgcol% |
|000019e0| 80 26 46 29 2b 28 62 67 | 63 6f 6c 25 20 3c 3c 34 |.&F)+(bg|col% <<4|
|000019f0| 29 0d 09 e2 29 62 21 32 | 34 3d 64 61 74 61 30 25 |)...)b!2|4=data0%|
|00001a00| 3a 20 62 21 32 38 3d 64 | 61 74 61 31 25 3a 20 62 |: b!28=d|ata1%: b|
|00001a10| 21 33 32 3d 64 61 74 61 | 32 25 0d 09 ec 19 c8 99 |!32=data|2%......|
|00001a20| 43 72 65 61 74 65 49 2c | 30 2c 62 20 b8 20 69 63 |CreateI,|0,b . ic|
|00001a30| 6f 6e 25 0d 09 f6 0a 3d | 69 63 6f 6e 25 0d 0a 00 |on%....=|icon%...|
|00001a40| 04 0d 0a 0a 32 dd f2 73 | 79 73 5f 73 65 74 69 63 |....2..s|ys_setic|
|00001a50| 6f 6e 73 74 61 74 65 28 | 68 61 6e 64 6c 65 25 2c |onstate(|handle%,|
|00001a60| 69 63 6f 6e 25 2c 66 6c | 61 67 73 25 2c 6d 61 73 |icon%,fl|ags%,mas|
|00001a70| 6b 25 29 0d 0a 14 0e 21 | 62 3d 68 61 6e 64 6c 65 |k%)....!|b=handle|
|00001a80| 25 0d 0a 1e 0d 62 21 34 | 3d 69 63 6f 6e 25 0d 0a |%....b!4|=icon%..|
|00001a90| 28 0e 62 21 38 3d 66 6c | 61 67 73 25 0d 0a 32 0e |(.b!8=fl|ags%..2.|
|00001aa0| 62 21 31 32 3d 6d 61 73 | 6b 25 0d 0a 3c 0e c8 99 |b!12=mas|k%..<...|
|00001ab0| 53 65 74 49 2c 30 2c 62 | 0d 0a 46 05 e1 0d 0a 50 |SetI,0,b|..F....P|
|00001ac0| 04 0d 0a 5a 26 dd f2 73 | 79 73 5f 67 65 74 69 63 |...Z&..s|ys_getic|
|00001ad0| 6f 6e 69 6e 66 6f 28 68 | 25 2c 69 25 2c f8 20 66 |oninfo(h|%,i%,. f|
|00001ae0| 25 2c f8 20 6e 24 29 0d | 0a 64 32 21 62 3d 68 25 |%,. n$).|.d2!b=h%|
|00001af0| 3a 20 62 21 34 3d 69 25 | 3a 20 c8 99 47 65 74 49 |: b!4=i%|: ..GetI|
|00001b00| 2c 30 2c 62 3a 20 66 25 | 3d 62 21 32 34 3a 20 6e |,0,b: f%|=b!24: n|
|00001b10| 24 3d 24 28 62 2b 32 38 | 29 0d 0a 6e 05 e1 0d 0a |$=$(b+28|)..n....|
|00001b20| 78 04 0d 0a 82 55 dd f2 | 73 79 73 5f 67 65 74 63 |x....U..|sys_getc|
|00001b30| 61 72 65 74 70 6f 73 69 | 74 69 6f 6e 28 f8 20 68 |aretposi|tion(. h|
|00001b40| 61 6e 64 6c 65 25 2c f8 | 20 69 63 6f 6e 25 2c f8 |andle%,.| icon%,.|
|00001b50| 20 78 6f 66 66 73 25 2c | 20 f8 20 79 6f 66 66 73 | xoffs%,| . yoffs|
|00001b60| 25 2c f8 20 63 68 65 69 | 67 68 74 25 2c f8 20 63 |%,. chei|ght%,. c|
|00001b70| 69 6e 64 65 78 25 29 0d | 0a 8c 13 c8 99 20 47 65 |index%).|..... Ge|
|00001b80| 74 43 61 72 65 74 2c 30 | 2c 62 0d 0a 96 18 68 61 |tCaret,0|,b....ha|
|00001b90| 6e 64 6c 65 25 3d 21 62 | 3a 69 63 6f 6e 25 3d 62 |ndle%=!b|:icon%=b|
|00001ba0| 21 34 0d 0a a0 1a 78 6f | 66 66 73 25 3d 62 21 38 |!4....xo|ffs%=b!8|
|00001bb0| 3a 79 6f 66 66 73 25 3d | 62 21 31 32 0d 0a aa 11 |:yoffs%=|b!12....|
|00001bc0| 63 68 65 69 67 68 74 25 | 3d 62 21 31 36 0d 0a b4 |cheight%|=b!16...|
|00001bd0| 10 63 69 6e 64 65 78 25 | 3d 62 21 32 30 0d 0a be |.cindex%|=b!20...|
|00001be0| 05 e1 0d 0a c8 04 0d 0a | d2 48 dd f2 73 79 73 5f |........|.H..sys_|
|00001bf0| 73 65 74 63 61 72 65 74 | 70 6f 73 69 74 69 6f 6e |setcaret|position|
|00001c00| 28 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 2c 78 |(handle%|,icon%,x|
|00001c10| 6f 66 66 73 25 2c 79 6f | 66 66 73 25 2c 63 68 65 |offs%,yo|ffs%,che|
|00001c20| 69 67 68 74 25 2c 63 69 | 6e 64 65 78 25 29 0d 0a |ight%,ci|ndex%)..|
|00001c30| dc 18 21 62 3d 68 61 6e | 64 6c 65 25 3a 62 21 34 |..!b=han|dle%:b!4|
|00001c40| 3d 69 63 6f 6e 25 0d 0a | e6 1a 62 21 38 3d 78 6f |=icon%..|..b!8=xo|
|00001c50| 66 66 73 25 3a 62 21 31 | 32 3d 79 6f 66 66 73 25 |ffs%:b!1|2=yoffs%|
|00001c60| 0d 0a f0 11 62 21 31 36 | 3d 63 68 65 69 67 68 74 |....b!16|=cheight|
|00001c70| 25 0d 0a fa 10 62 21 32 | 30 3d 63 69 6e 64 65 78 |%....b!2|0=cindex|
|00001c80| 25 0d 0b 04 13 c8 99 20 | 53 65 74 43 61 72 65 74 |%...... |SetCaret|
|00001c90| 2c 30 2c 62 0d 0b 0e 05 | e1 0d 0b 18 04 0d 0b 22 |,0,b....|......."|
|00001ca0| 2f dd 20 f2 73 79 73 5f | 64 65 66 69 6e 65 74 65 |/. .sys_|definete|
|00001cb0| 78 74 6d 65 6e 75 28 73 | 75 66 66 69 78 24 2c 74 |xtmenu(s|uffix$,t|
|00001cc0| 69 74 6c 65 24 2c 74 65 | 78 74 24 29 0d 0b 2c 1e |itle$,te|xt$)..,.|
|00001cd0| ea 70 74 72 25 2c 73 68 | 61 64 65 25 2c 74 69 63 |.ptr%,sh|ade%,tic|
|00001ce0| 6b 25 2c 64 6f 74 74 65 | 64 25 0d 0b 36 18 24 73 |k%,dotte|d%..6.$s|
|00001cf0| 79 73 5f 62 32 25 3d c0 | 74 69 74 6c 65 24 2c 31 |ys_b2%=.|title$,1|
|00001d00| 31 29 0d 0b 40 3a 73 79 | 73 5f 62 32 25 3f 31 32 |1)..@:sy|s_b2%?12|
|00001d10| 3d 6d 65 6e 75 74 69 74 | 6c 65 5f 66 67 63 6f 6c |=menutit|le_fgcol|
|00001d20| 3a 20 73 79 73 5f 62 32 | 25 3f 31 33 3d 6d 65 6e |: sys_b2|%?13=men|
|00001d30| 75 74 69 74 6c 65 5f 62 | 67 63 6f 6c 0d 0b 4a 38 |utitle_b|gcol..J8|
|00001d40| 73 79 73 5f 62 32 25 3f | 31 34 3d 6d 65 6e 75 77 |sys_b2%?|14=menuw|
|00001d50| 6f 72 6b 5f 66 67 63 6f | 6c 3a 20 73 79 73 5f 62 |ork_fgco|l: sys_b|
|00001d60| 32 25 3f 31 35 3d 6d 65 | 6e 75 77 6f 72 6b 5f 62 |2%?15=me|nuwork_b|
|00001d70| 67 63 6f 6c 0d 0b 54 15 | 73 79 73 5f 62 32 25 21 |gcol..T.|sys_b2%!|
|00001d80| 31 36 3d 31 36 30 2b 33 | 32 0d 0b 5e 13 73 79 73 |16=160+3|2..^.sys|
|00001d90| 5f 62 32 25 21 32 30 3d | 33 32 2b 38 0d 0b 68 11 |_b2%!20=|32+8..h.|
|00001da0| 73 79 73 5f 62 32 25 21 | 32 34 3d 31 30 0d 0b 72 |sys_b2%!|24=10..r|
|00001db0| 1e e7 c2 74 65 78 74 24 | 2c 31 29 3c 3e 22 7c 22 |...text$|,1)<>"|"|
|00001dc0| 20 74 65 78 74 24 2b 3d | 22 7c 22 0d 0b 7c 13 70 | text$+=|"|"..|.p|
|00001dd0| 74 72 25 3d 73 79 73 5f | 62 32 25 2b 32 38 0d 0b |tr%=sys_|b2%+28..|
|00001de0| 86 05 f5 0d 0b 90 20 73 | 68 61 64 65 25 3d 30 3a |...... s|hade%=0:|
|00001df0| 20 74 69 63 6b 25 3d 30 | 3a 20 64 6f 74 74 65 64 | tick%=0|: dotted|
|00001e00| 25 3d 30 0d 0b 9a 32 e7 | c0 74 65 78 74 24 2c 31 |%=0...2.|.text$,1|
|00001e10| 29 3d 22 3c 22 20 73 68 | 61 64 65 25 3d 26 34 30 |)="<" sh|ade%=&40|
|00001e20| 30 30 30 30 3a 20 74 65 | 78 74 24 3d c1 74 65 78 |0000: te|xt$=.tex|
|00001e30| 74 24 2c 32 29 0d 0b a4 | 2b e7 c0 74 65 78 74 24 |t$,2)...|+..text$|
|00001e40| 2c 31 29 3d 22 3e 22 20 | 74 69 63 6b 25 3d 31 3a |,1)=">" |tick%=1:|
|00001e50| 20 74 65 78 74 24 3d c1 | 74 65 78 74 24 2c 32 29 | text$=.|text$,2)|
|00001e60| 0d 0b ae 2d e7 c0 74 65 | 78 74 24 2c 31 29 3d 22 |...-..te|xt$,1)="|
|00001e70| 3a 22 20 64 6f 74 74 65 | 64 25 3d 32 3a 20 74 65 |:" dotte|d%=2: te|
|00001e80| 78 74 24 3d c1 74 65 78 | 74 24 2c 32 29 0d 0b b8 |xt$=.tex|t$,2)...|
|00001e90| 29 24 28 70 74 72 25 2b | 31 32 29 3d c0 c0 74 65 |)$(ptr%+|12)=..te|
|00001ea0| 78 74 24 2c a7 74 65 78 | 74 24 2c 22 7c 22 29 2d |xt$,.tex|t$,"|")-|
|00001eb0| 31 29 2c 31 31 29 0d 0b | c2 1f 74 65 78 74 24 3d |1),11)..|..text$=|
|00001ec0| c1 74 65 78 74 24 2c a7 | 74 65 78 74 24 2c 22 7c |.text$,.|text$,"||
|00001ed0| 22 29 2b 31 29 0d 0b cc | 2c 70 74 72 25 21 30 3d |")+1)...|,ptr%!0=|
|00001ee0| 74 69 63 6b 25 20 84 64 | 6f 74 74 65 64 25 20 84 |tick% .d|otted% .|
|00001ef0| 28 26 38 30 20 80 28 74 | 65 78 74 24 3d 22 22 29 |(&80 .(t|ext$="")|
|00001f00| 29 0d 0b d6 0d 70 74 72 | 25 21 34 3d 2d 31 0d 0b |)....ptr|%!4=-1..|
|00001f10| e0 42 70 74 72 25 21 38 | 3d 73 68 61 64 65 25 20 |.Bptr%!8|=shade% |
|00001f20| 84 26 30 31 30 30 32 31 | 20 84 6d 65 6e 75 77 6f |.&010021| .menuwo|
|00001f30| 72 6b 5f 62 67 63 6f 6c | 3c 3c 32 38 20 84 6d 65 |rk_bgcol|<<28 .me|
|00001f40| 6e 75 77 6f 72 6b 5f 66 | 67 63 6f 6c 3c 3c 32 34 |nuwork_f|gcol<<24|
|00001f50| 0d 0b ea 0c 70 74 72 25 | 2b 3d 32 34 0d 0b f4 0d |....ptr%|+=24....|
|00001f60| fd 74 65 78 74 24 3d 22 | 22 0d 0b fe 27 c8 99 43 |.text$="|"...'..C|
|00001f70| 72 65 61 74 65 4d 2c 30 | 2c 73 79 73 5f 62 32 25 |reateM,0|,sys_b2%|
|00001f80| 2c 6d 6f 75 73 65 78 25 | 2c 6d 6f 75 73 65 79 25 |,mousex%|,mousey%|
|00001f90| 0d 0c 08 16 63 6c 61 69 | 6d 6d 65 6e 75 24 3d 73 |....clai|mmenu$=s|
|00001fa0| 75 66 66 69 78 24 0d 0c | 12 05 e1 0d ff          |uffix$..|.....   |
+--------+-------------------------+-------------------------+--------+--------+